db <- read.csv("Data Export Summary.csv")
db
## Molecular.Type X.ray NMR EM Multiple.methods Neutron Other
## 1 Protein (only) 142419 11807 6038 177 70 32
## 2 Protein/Oligosaccharide 8426 31 991 5 0 0
## 3 Protein/NA 7498 274 2000 3 0 0
## 4 Nucleic acid (only) 2368 1378 60 8 2 1
## 5 Other 149 31 3 0 0 0
## 6 Oligosaccharide (only) 11 6 0 1 0 4
## Total
## 1 160543
## 2 9453
## 3 9775
## 4 3817
## 5 183
## 6 22
round((sum(db$X.ray)/sum(db$Total))*100, 2)
## [1] 87.53
round((sum(db$EM)/sum(db$Total))*100, 2)
## [1] 4.95
Q1 87.53% and 4.95% respectively
round(db$Total[1]/sum(db$Total) *100, 2)
## [1] 87.35
Q2 87.35%